   1 .
   2 .ZAPPIT
   3 .
  10 clear ;NT=0;T=0;C=0;BC=66;FC=8;CX=-30;CY=0;print "Z A P P I T
  12 for A=80to 160step 2;NT=1;MU=88;box 0,0,A,Adiv 2,3;MU=88;next A;BC=131;for A=0to 999;next A
  15 clear ;NT=0;D=255;BC=0;FC=0;CY=32;print "SCORE:",#1,C;X=rnd (98)-49;Y=rnd (50)-25
  20 FC=rnd (30)mul 8+4;CX=-77;CY=40;print "SEQUENCE:",#1,T;T=T+1;gosub 250;NT=35;MU="V";MU="W";NT=0
  30 line -80,-44,4;line 79,43,1;line -50,27,4;line 79,-44,1;box 0,0,160,1,1;box 0,0,1,88,1;line 0,28,4;line 10,26,1;line 20,20,1;line 26,10,1
  40 line 28,0,1;line 26,-10,1;line 20,-20,1;line 10,-26,1;line 0,-28,1;line -10,-26,1;line -20,-20,1;line -26,-10,1;line -28,0,1;line -26,10,1
  50 line -20,20,1;line -10,26,1;line 0,28,1;line 0,0,4;Z=1;gosub 210
  70 &(21)=2mul 45;box X,Y,32,6,Z;box X,Y,38,2,Z;box X,Y+3,24,1,Z;box X,Y+4,16,1,Z;box X,Y+5,8,1,Z;box X+21,Y-1,5,4,Z
  80 box X-22,Y-1,5,4,Z;box X+25,Y-2,3,3,Z;box X-26,Y-2,3,3,Z;line X+19,Y+1,4;line X+30,Y-4,Z;line X+24,Y-4,Z;line X-26,Y-4,4
  90 line X-32,Y-4,Z;line X-21,Y+1,Z;box X,Y-4,26,1,Z;box X+8,Y-4,7,2,Z;box X-8,Y-4,7,2,Z;if Z=2goto 115
 100 line X-8,Y+1,4;line X-6,Y-1,2;line X-6,Y-2,2;line X-8,Y-4,2;line X-10,Y-2,2;line X-10,Y-1,2;line X-8,Y+1,2;line X+8,Y+1,4
 110 line X+6,Y-1,2;line X+6,Y-2,2;line X+8,Y-4,2;line X+10,Y-2,2;line X+10,Y-1,2;line X+8,Y+1,2
 115 if Z#2if TR(1)=1goto 140
 120 if Z=2goto 20
 130 if Z=1 Z=2;&(21)=85;goto 70
 140 BC=233;FC=236;for Q=1to 3;for A=35to 15step -1;&(19)=A;next A
 142 line -24,-44,4;line 0,0,3;line 24,-44,4;line 0,0,3;line -24,43,4;line 0,0,3;line 24,43,4;line 0,0,3
 144 line -80,12,4;line 0,0,3;line -80,-12,4;line 0,0,3;line 79,12,4;line 0,0,3;line 79,-12,4;line 0,0,3
 148 next Q;&(19)=0;&(21)=0;if 10>Xif -10<Xgoto 160
 150 goto 15
 160 if 10>Yif -10<Ygoto 180
 170 goto 15
 180 C=C+1;for A=1to 15;BC=90;Q=rnd (98)-49;R=rnd (60)-30;&(19)=150;&(23)=255;BC=7;D=D-2;&(21)=D
 190 box Q,R,rnd (5),rnd (5),3;box Q,-R,rnd (5),rnd (5),3;BC=0;box -Q,R,rnd (5),rnd (5),3;box -Q,-R,rnd (5),rnd (5),3;next A
 200 for A=0to 40;BC=0;FC=7;BC=FC;BC=7;FC=0;BC=FC;next A;&(19)=0;&(21)=0;&(23)=0;goto 15
 210 if 10>Xif -10<Xgoto 230
 220 CX=-20;CY=-39;print "TRACKING";return 
 230 if 10>Yif -10<Y CX=-20;CY=-39;print " LOCKED ";return 
 240 goto 220
 250 if JY(1)=0if JX(1)=0goto 300
 260 if JX(1)=1 X=X-25
 270 if JX(1)=-1 X=X+25
 280 if JY(1)=1 Y=Y-25
 290 if JY(1)=-1 Y=Y+25
 300 X=X+rnd (20)-10;Y=Y+rnd (20)-10;if 10>Xif -10<Xgoto 320
 310 return 
 320 if 10>Yif -10<Ygoto 340
 330 return 
 340 X=0;Y=0;return 
 350 goto 15
>:return 
